vb问题~ 高手快来帮帮我`` 先谢谢了`

来源:百度知道 编辑:UC知道 时间:2024/05/23 00:42:33
怎么判断 text1.text 输入的 内容 是否与 c:\123.txt 相符~

高手把代码发出来吧` 用IF的``

最好能+qq告诉我``在线等`

你要问的是是否与这个字符串相符还是与这个文件中的内容相符?如果是与这个字符串相符那么只要这么写就可以了
if text1.text="c:\123.txt" then
msgbox "Y"
else
msgbox "N"
endif

Dim WJHSJ As String, WJZSJ As String
Open "c:\123.txt" For Input As #1 '打开123.txt文件
Do While Not EOF(1) '循环读取数据
Line Input #1, WJHSJ '读取每一行的数据
WJZSJ = WJZSJ & WJHSJ '将读取的每一行数据存储到WJZSJ变量中
Loop
Close #1 '关闭123.txt文件
If Text1.Text = Trim(WJZSJ) Then '判断Text1.Text 内容是否和 WJZSJ 变量相同
MsgBox "内容相同",64,"内容相同" '如果相同显示对话框“内容相同”
Else
MsgBox "内容不相同",16,"内容不相同" '如果不相同显示对话框“内容不相同”
End If

if text1.text="c:\123.txt" then
结果...
else
.....
end if

注意这次别忘了end if

文件中的内容相符:
Dim lineData, inData As String
Open "c:\abc.txt" For Input As #1 '打开文件
Do While Not EOF(1) '循环读取信息
Lin